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SVMSMASTE ae 


cane ames: eee ee these 300-138 #753. $4: 3 BAB. OSRCSBADMAIN. 832;1 a) 


14-Sep-1 
ZTITLE "Anal /Media Main Module’ 
IDENT = 862680". . 
MAIN = bad 


VAX= 32 Vv 
DISK R: 
MODULE badmain ( 


ain) = 
BEGIN 


ůEWEUAOEGOESOOOSOSS 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL QUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


OF Tw fs FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACC ANCE WITH THE TERMS OF SUCH 4159 AND WITH THE 
Ne ARE OR ANY OTHER 


ION T 
; THEREOF F NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


tt 
® 
* 
7 
* 
® 
a 
® 
® 
® 
ie TRANSFERRED. “ 
— 
® 
® 
® 
* 
* 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* —B — NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie ore ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i Facility: 

Analyze/Media 

i Abstract: 
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This module is the main routine or driver for the facility. 
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i Environment: 
VAX/VMS User Mode, Non-Privileged 
i Author: 
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i Modified By: 


v03-005 nragoos Michael T. Rhodes 3-Jul-1984 
Don’« produce a Listing of non-last track SDBSFs : 
it they don't exist and we aren't exercising the medium. 


v03-004 Bt $0266 Benn Schreiber 26-0c t-1983 
Exit with warning severity if bad blocks found. 


v03-003 MTROO04 Michael T. Rhodes ar-1983 


1 
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1 
1 
' 
‘ 
i 
3 
1 
' 
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t 
' 
1 
Michael T. Rhodes, CREATION DATE: July, 1982 
‘ 
1 
1 
1 
1 
? 
‘ 
‘ 
t 
: Move routines ‘bad$retry’ and Or, blacks® to 
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é module BADI0.832. 
v03-002 MTROOO3 Michael T. Rhodes 11-Feb-1982 
Add support for Stand Alone BAD. 
i v03-001 MTROOO1 Michael T. Rhodes 15-Dec-1982 


Add the /LOG qualifier, which is processed 4 the ROUTINE 
a 


tt ts as a a — — — — — — — 


065 *total_bad_blocks’, in addition to code in d$main'. 
bes age cose to ———* to ropes Se oxeret goog test pattern” 
w e user su e attern ne a: 
0069 VEXERCISESPATTERNS (15965698 FLOPTI TIE? 1999999999, EXABCDEF I) 
84 Modify the retry Logie to mark and step past bad blocks. 
ith (NOTE: This code is RECURSIVE.) 
007 
0074 we 
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Analyze/Media Main Module 


Declarations 
3 — — *Declarations’ 
rt ; H Include Files: 
79 1 REQUIRE ‘Lib$:baddef’; 
200 : LIBRARY ‘SYSSLIBRARY:L1B'; 
1: 
03 : } Table of Contents: 
Oe 1 FORWARD ROUTINE 
ee bad$main : NOVALUE, 
1 finish_medium : NOVALUE, 
07 +1 read_medium : NOVALUE, 
08 1 total_bad_blocks, 
09 1 write last_track : NOVALUE, 
10 1 write medium : NOVALUE, 
0211 1 write_new_sdbsf NOVALUE, 
8 \ : write _non_(sttrk NOVALUE; 
0214 1! 
0 3 : External References: 
9 19 1 EXTERNAL ROUTINE 
0 18 1 ad$close_ files : ADDRESSING_MODE (GENERAL), 
0219 1 bad$cvt_nit_long : ADDRESSING_MODE (GENERAL), 
0220 1 bad$handler : WEAK 
0221 1 bad$Sinit ADDRESSING_MOD (GENERAL), 
0 ¢ 1 bad$Sinit_buffers ADDRESSING_MODE (GENERAL), 
9 1 bad$produce_report ADDRESSING_MODE (GENERAL), 
0224 1 padsretry ADDRESSING_MODE (GENERAL), 
0225 1 bad$start_io ADDRESSING _MODE (GENERAL), 
0 $ 1 bad$sync_io : ADDRESSING_MODE (GENERAL), 
8 1 bad$verify_blocks : ADDRESSING_MODE (GENERAL), 
8558 : CHECKSUM2 : ADDRESSING_MODE (GENERAL); 
02350 1 caren, 
: bad$gb_block_fact =: BYTE 
; 1 bad$ga_bufadr : VECTOR (2, LONG]. 
1 ad$gl_context : BITVECTOR (52), 
0234 1 bad$gl_cylinders, 
0235 1 bad$ga_device : SBBLOCK Cdsc$c_s_bin], 
1 bad$gl_devtype, 
1 bad$gl_func, 
8 1 bad$gq_ios : VECTOR (4, LONG), 
9 1 bad$gl_maxblock, 
40 1 bad$ga_mdbsf, 
41 1 bad$gl_mdbsf_ptr, 
42 1 bad$ql_pagc Re 
435 1 bad$ga_sdbsf, 
44 1 bad$gl_sdbsf_ptr, 
45 1 bad$gl_sectors, 
46 1 bad$gl_sector_siz, 
47 1 bad$gl_status : SBBLOCK, 
48 1 bad$gl_tracks, 
8 bad$gl_trnsfr_cnt; 


Oe ee — 
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Define BAD's structures etc. 
Define VMS structures etc. 


Main procedure declaration. 

Write the updated SDBSF and produce a report (if r 
Read blocks back from medium. 

Compute the total number of bad blocks on the devi 
Write the SDBSF to the Last track. 

Write test pattern onto medium. 

Perform house cleaning on SDBSF before writing it 

Write the SDBSF to the Last good block on the medi 


Close all open files. 

Convert a non last track SDBSF entry to longwords. 
Condition Handler for Stand Alone Environment. 
Routines for allocation/initialization of structur 


Routine to fill all of the 10 buffers with the tes. 


Generate the report. 


Mark bad blocks, continuing the 10 operation in pr 


Start asynchronous 10 operations. 
Perform synchronous 10. 
Verify that the pattern read, matches the test pat 


Perform and generate a checksum on the given buffe. 


Data buffer address vector. 

Context bits. 

Number of cylinders. 

Device name descriptor. 

Device type identifier. 

10 function code. 

10 status blocks. : 
Largest logical block number on device. 
Address if the M ‘ 

Starting block number of the last track. 
Number of 51 byte poses per transfer. 
Address of the SDBSF. 

Address of the next free entry in the SDBSF. 
Number of sectors per track. 

Size in bytes of the sector. 

Global status. 

Number of tracks per cylinder. 

Number of bytes per transfer. 


Blocking fecter (number of sectors per block). 
b 


am 
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| BADMAIN Analyze/Media Main Module 1b-se -1 
— Declarations 14-Sep-1 
3 : 
¢ ; : Define message codes... 
4 1 EXTERNAL LITERAL 
bad$_bbfwrt, 
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rorore 
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bad$_ facili ity. 
bad$ “writeerr; 


1 
! Private Storage: 


— 


blkstrk 

first t-pattern : 
lastfu 
remainder, 
test_pattern : y 


BYTE, 
ECTOR C3 
NITIAL ( 
usable; 
LITERAL 
last_pattern = 2; 


— —— — — — — — — — — — — — — — — — — — — — — — — 


LONG) 
6, -1, %X'DB6DB6DB"), 


241: 
254: 


! Total number of usable (writable) blocks. 
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VAX= P 
SIEKSUMGMASTERS LOAD SRCSBADMAIN.B32:1°%" (25 


fotted to write the SDBSF to media 

Block 0 is bad, do net use media as a system devic 
BAD's facil ty num 

Total bad blocks detecte d. 

Error occurred while trying to write to a device. 


Blocks per track. 

ptort ine pattern number. 

Last LON for full buffer transfer. 
Remainder of device to read in bytes. 
Test patterns. 


Number of test patterns -1. 
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‘ alyze/ dia Main Module 5 Sep-1984 3413 VAX-11 Bliss-32 V4.0-7 


4 Pa 5 
14-Sep-1984 DI SKSVMEHASTERSLUAD SRC SBADMAIN.B32:1 - (3) 
ZSBITL ‘bad$main' 
GLOBAL ROUTINE bad$Smain : NOVALUE = 


! Functional Description: 


The driver is responsible for 


ing routines which perfor 4 
tasks as allocating and initia water 4 4 —*R 


ng storage and 218 structures, 
õ involves manipulation of the 
and concluding with che release 


C 
L 
parsing the command Line (which 
structures), analyzing the media, 

tionally generating a Listing). 


of allocated resources (and op 
i Implicit Outputs: 


The media has been analyzed, and if requested a Listing will have 
been produced. 


! 

4 

4 

1 

t 

1 

4 

‘ 

‘ 

' 

J 

' 

: 

Completion Codes: 

BAD-S-NORMAL Normal successfull completion. 
; BAD-W-BLKOBAD Block zero on the device is bad, 

do not use this medium as a system device. 

i 

SIDE EFFECTS: 

: Completion codes with severity worse than those listed above will be the 
: result of a fatal error that was signalled via a SIGNAL_STOP, or one in 
which we had manually boosted the severity to SEVERE. 

The success/warnings listed above will have the ‘‘inhibit’’ bit set, to 

‘ 


prevent noisy messages from being displayed (or displayed twice as the 
case may be). 


LOCAL 
bad_blocks_ found; 


IF bad$handler NEQ 0 
THEN -FP = bad$handler; 


WHILE true DO 
BEGIN 


Are we preset ine Stand Alone or under VMS? 
Stand Alone -- Establish Condition Handler. 


Continuously process devices when Stand Alone, how 
under VMS we will perform a normal exit w/status. 


bad$init (); Allocate and initialize storage and control struct 


IF ,bad$gl_context (ctx_v_exercise] 
THEN 


ore we going to analyze the medium? 


Select the number of usable blocks according to th 
size of the device (as specified by the last track 


BEGIN J 
Hiei Petet content Cctx_v_ltdevice] 
device bit in the context flags). Note also, that. 


usable = .bad$gl_mdbsf_ptr 


— 
=< 


* 
— 
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+H e ain ule 15-Sep 1386 43413 VAX-11 Bliss-32 V4.0-7 page ‘ 


2 6 
a 14-Sep- DISKSVMSMAS TER: CBAD.SRC JBADMAIN.832; 3) 


A 
bad$m 

; 21 34 ELSE ! on Last track devices the Last track is protected 
[3 " ¢ 2 usable = .bad$gl_maxblock; ! regardless of the setting of the Poverr ide’ bit. 

3 8 — lastfull = Fad ( -bad$al pagent - 1) ! Block number of last full buffer transfer. 

; 1 8 ? remainder = ( asable =o as ttl + .bad$gl_pagcnt))! Bytes remaining to transfer. 

; a 3 

3 4 41 4 IF .bad$gl_context Cctx_v_exercise_full] ! How extensively should the surface be tested? 

: 5 tg 4 THEN first pattern = : Use all three test patterns. 

: * O34 ? ELSE first_pattern = 2; ! Only use the ‘worst case’’ test pattern. 

; ; 0 8 4 EMER postore FROM .first_pattern TO Last_pettern 0g + Mate shes in 3 cases the ‘worst case’’ test p 
; ! is left on the medium. 

3 $ 0 83 IF -baddel content Cctx_v_pattern] ! If the user supplied a test pattern, 

; 1 0348 2 AND .pattern EQL Last_patftern ! and its time to use it, then initilaize 

3 § 83 THEN bad$init_buffers () ! the buffers with it (upto 128 bits of pattern). 
3 2s 0350 5 ELSE bad$init_buffers (.test_pattern C.pattern]); ! Otherwise, initialize them with the default | 
> 234 0351 5 write_medium 7); ' Write the test pattern onto the medium. 
; 3 3 road Rodin Q; ! Read and Verify that the patterns match. 

; 238 3 END; ! End of Analysis... 

; 39 0356 finish_medium (); ! Write updated SDBSF to medium produce a Listing 

; 544 0886 bad_blocks_found = total_bad_blocks(); 

3 seg 83 IF goedsol context Cctx_v_log] } Should we display the total bad block count? 

; 344 Bee) SIGNAL (bad$_lsttotbk, 3, bad$ga_device, .bad$gl_maxblock, ebad_blocks_ found); 

; Ste O868 IF .bad$gl_context Cctx_v_blkObad] 

3; 2467 0364 THEN R 

; 248 0365 4 BEGIN " ! If block 0 (zero) is bad, then signal the warning 

: 249 0366 4 bad$gi_status = baa3s_hlk0Obad; ! and exit with warning as our status. 
; 330 0367 4 SIGNAL” (bad$_blkObad> 1, bad$ga_device); | 
: $26 0369 ! Otherwise, if we have reached here exit with succe | 
; 2 0370 F .bad_blocks_found EQL 0 ! no bad blocks found, else exit with a warning. 
3; 254 0371 THEN bad$gl_status = ss$ normal ! This is due to the fact that ony serious errors wo | 
: 255 B55 ELSE bad$gl"status = sts$k_warning; ' have caused us to exit via a SIGNAL_STOP which wou 
; 23 ba57 ! result in a severity of FATAL in thé resultant sta. 
i; 258 0375 bad$gl_status (sts$v_fac_no] =_bad$ facility; ! Stuff the facility number into the status. 

3 38 9 bad$gl“status Csts$v_inhib_msg]) = TRUE; ! Do not reprint the message. 

: 261 378 IF bad$handler EQ. 0 ' Are we executing under VMS? 

3 268 88 THEN SEXIT (CODE = .bad$gl_status); ! Yes, perform normal exit. 

; 8 END; ! of WHILE true DO BEGIN ! No, go back for the next command and continue. 

: 566 0383 END; ! of GLOBAL ROUTINE bad$main. 


TITLE et veer hy Analyze/Media Main Module 
-IDENT \v04-000\ 


~PSECT SOWNS,NOEXE,2 
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BADMAIN Analyze/Media Main Module Bese 1984 23:41:46 VAX-11 Bliss-32 V4.0-74 P 
—W bad$main | 12-8 08-138e #7:3):58 DISKSVMGHASTERSLUAD SRCSBADMAIN.B32:1°%° (3 
90000 BLKSTRK:.BLKB 4 
004 FIRST PATTERN 

0005 BLKB 

0008 LASTFULL: ws 

0000¢ REMAINDER: ‘ 

DB6DB6DB  FFFFFFFF 00000000 00010 TEST_PATTERN: 

0001C USABLE: :BLKB 4 
.EXTRN BADSCLOSE_FILES 
~-EXTRN BADSCVT_NECT_LON 
-EXTRN BADSINIT, BADSINIT_BUFFERS 
SEXTRN BADSPRODUCE REPORT 
*EXTRN BADS$RETRY, BADSSTART_10 
-EXTRN BADSSYNC_[0, BADSVERTFY_BLOCKS 
“EXTRN CHECKSUM2, BADS$GB_BLOCK~FACT 
-EXTRN BADSGA_BUFADR, BADSGL_CONTEXT 
-EXTRN BADS$GL~CYLINDERS 
-EXTRN BADS$GA-DEVICE, BADSGL_DEVTYPE 
-EXTRN BADSGL-FUNC, GAD$GQ_I0SB 

XTRN BAD$GL~MAXBLOC 


‘ LOCK 
-EXTRN BADSGA-MDBSF, BADSGL_MDBSF_PTR 
*EXTRN BADSGL -PAGCNT BAD$GA_SDBSF 


-EXTRN BADSGL-TRNSFR_CNT 

-EXTRN BAD$_BBFWRT, BADS pLKoean 
EXTRN BADS$-FACILIfY, BAD$ _LSTTOTBK 
-EXTRN BADS-WRITEERR, SYSSEXIT 
WEAK BADSAANDLER 


«PSECT S$CODES,NOWRT,2 


O7FC 00000 .ENTRY BADSMAIN, Save R2,R3,R4.R5,R6,R7,.R8.R9,R10 =; 0277) 
5A 0000G CF 9 90002 MOVAB BAD$HANDLER, R10 ; 
59 000000006 8F D0 0000 MOVL §§ #BAD$ BLKOBAD, R9 : | 
38 900000006 00 9€ OO00E MOVAB LIBSSYGNAL, R : 
oooogegs fF 886 MOVAB BADSGU STATUS RG” ; 
a : 
50 6A 5 3 B MOVAB BADSHANDLER, RO + 0319 
6D 6A 9E 00 " MOV BADSHANDLER, (FP) > 032 
000000006 00 6 Fe 99 1$: CALLS #0, B Ds NIf ; 9 25 | 
66 é E 0 A BBC #2: BADSGL CONTEXT 108 > 0327 | 
? 01 AS £9 00 BLBC § BADSGL_CONTEXT+1, 2$ : 0 0 
64 00006 cr D6 a MOVL BADSGL “MDBSF _PTR, USABLE > 0332. 
4 00006 CF D 0049 26: MOVL § BADSGL_MAXBLOCK, USABLE i 0334 
0 00006 cf D 0046 $: MOVL_ BADSGL™PAGCNT, RO : 0336 
51 64 0 C7 0005 DIVL3 RO, USABLE, Rf ; 


Bt ER AEE AN AN PS Bees BPs 
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bad$main 14- et 7 3131330 DISKSVMSMASTER: (BAD. She BADMAIN.B32; (29 * (3) 
51 D7 0057 DECL. Ri : 
EC AG 51 Ss £ 0 29 MULL3 RO, R1, LASTFULL t 0337 
50 EC A& C0 000 5 ADDL2 LASTFULL, RO : 0338 
50 64 50 ; 006 SUBL3 RO, USABLE RO : 
FO AG 30 09 0066 ASHL #9, RO, REMAINDER : 0339 
05 6 03 3 006B BBC #3, BAOSGL CONTEXT, 4$ + 0341 
£8 ad 94 OOGr cLRB FIRST _PATTERN > 0342. 
EB AG 83 90 00074 4$: MOVB #2, FIRST_PATTERN + 0343. 
52 E8 A& 9A 00078 5$: MOVZBL FIRST PATTERN, PATTERN + 0345. 
52 D7 0007¢ ECL PATTERN : 
20 11 86 BRB 9 : | 
OA 01 AS E1 00080 6$: BBC #2, BADSGL_CONTEXT+1, 7$ + 0347) 
02 3 bi 00083 CMPL PATTERN, #2 ; 0348 
67 00 FB BOOBA CALLS #0, BADSINIT_BUFFERS + 0349 | 
07 11 0008D BRB : 
F4 AGG2 DD OOOBF 7$ PUSHL TEST PATTERNCPAT TERN] + 0350 
67 01 FB 00093 CALL #1, BADSINIT BUFFERS : 
0000v CF 00 FB 00096 8s CALLS #0. WRITE MEDIUM + 0351. 
0000v CF 00 re 00098 CALLS #0, READ MEDI ; 0352 
bc 52 02 F3 OOOAO 9 AOBLEQ #2. PA RN. : 034 
0000v CF 00 FB 000A4 10$ CALLS #0, FINISH MEDIUM : 0356) 
0000v CF 00 FB 000A9 CALLS #0, TOTAL BAD_BLOCKS 3 0358 | 
53 50 DO OO00AE MOVL RO, D ABCOCKS. F OUND F 
65 95 00081 TST6 BASSEL TON : 0359) 
15 18 00083 BGEQ 11$ F 
53 pd 00085 PUSHL BAD_BLOCKS FOUND > 0361 
0000G CF DD 00087 PUSHL BADSGL_MAXBLOCK 3 
0000G CF 9F 000BB PUSHAB BADS$GA~DEVICE ; 
03 DD O00BF PUSHL # 3 
000000006 8F DD 000C1 PUSHL #BAD$_LSTTOTBK ; 
68 05 FB 000C7 CALLS #5, LYBSSIGNAL : 
10 65 01 €1 000CA 118:  6BC #1, BADSGL ~CONTEXT, 12$ 5 036 
66 59 DO OO0CE MOVL  R9, BAD$GL~STATUS : 036 
0000G CF 9F 00001 PUSHAB BADSGA _DEVICE : 036 
01 DD 00005 PUSHL #1 : 
59 DD 00007 PUSHL  R9 F 
ra: 03 FB 00009 CALLS #3, LIBSSIGNAL ; 
08 11 000D¢ BRB 14 + 0363 
53 D5 OOODE 128: TSTL | BAD_BLOCKS_FOUND : 0370) 
05 12 000E0 BNEQ 1 : 
66 01 DO O00E MOVL #1, BADSGL_STATUS : 0371. 
02 11 OE BRB 148 : 
66 D4 OOOE7 138: CLRL  BAD$GL_STATUS : 037 
02 46 0c 00 000000006 8F FO 6 14$: INSV #BADS FACIUiTY #0, #12, BADSGL_STATUS+2  ; 037 
03 Ab 10 88 OO0F3 -BISB2 BAD$GL_STATUS#3 : 0376 | 
50 6A H 00F7 MOVAB BADSHANDLERT® RO ; 0378 | 
09 12 OOOFA BNEQ 1 ; | 
6 OD OOOFC PUSHL BADSGL STATUS : 0379 
000000006 00 1 £B OOF CALLS » SYSSEX F 
FF2B 31 001065 15$: BRW 1 ; 0322 


: Routine Size: 264 bytes, Routine Base: $CODE$ + 0000 


3 267 0384 1 


| BADMAIN Analyze/Media Main Module 18-s¢ 1984 23:41:46 VAX-11 Bliss-32 V4.0-74 Page 9 
| VOG= 0 write medium — Write the test pattern onto the 12-808-1 8c $7:94:58 DLEKSVMGHASTER-COAD SRC SBADMAIN.832:1 ’ (4) 

; 9 85 1 ZSBTTL ‘write medium -- Write the test pattern onto the medium’ 

: 0 58 1 ROUTINE write medium : NOVALUE = 

s efi 1 !e¢ 

; af 0388 #1! 

; 6, 8 8 ; Functional Description: ; 

; 275 0391 1! Write the test pattern onto the medium. If any 10 errors occur, the 10 

3 re 8 35 : } procedure is responsible for signalling the error. 

: 278 0394 1 ! Side Effects: 

; ey 0395 1! 

; 280 8 Re Upon completion, the entire surface of the medium (except the Last track 

3 o 8 3 for last track devices) will contain the current test pattern. 

: 288 0399 1 i-- 

3; «6284 0400 BEGIN 

3 aH 0401 

: 286 Bene bad$gl_func = I10$_WRITELBLK; 

; 287 040 

3 see Bens bad$start_io (.lastfull); 

: 8 88 3 * bad$sync_io (.bad$ga_bufadr [0], .remainder, .lastfull + .bad$gl_pagcnt) 

: 33 ats § bad$retry (.lastfull + .bad$gl_pagcnt, .remainder, bad$gq_iosb (0), .bad$ga_bufadr [0)); 

3 294 0410 1 END; ! of ROUTINE write_medium 


0004 00000 WRITE_MEDIUM: 
- WORD 


Save R2 
52 0000" CF 9 90002 MOVAB LASTFULL, R2 
00006 CF 20 00 0000 MOVL #32, BAD$GL_FUNC 
62 DD 0000C PUSHL LASTFULL 
000000006 00 01 FB 90008 CALLS #1, BADSSTART_IO 
E 62 00006 CF C1 0001 ADDL3 BADSGL_PAGCNT> LASTFULL, -(SP) 
04 A2 dO 1 PUSHL REMAINDER 
00006 CF DD ðdit PUSHL BADS$GA_BUFADR 
000000006 00 93 FB 000 CALLS #3, BADSSYNC_IO 
18 0 £8 00029 BLBS 
00006 CF DD 0002C PUSHL BADSGA_BUF ADR 
00906 CF 9F 00030 PUSHAB BAD$GQ~10SB 
4 A2 0D 000 PUSHL REMAINDER 
7E 62 0000G CF C1 00037 ADDL3 BADS$GL_PAGCNT, LASTFULL, -(SP) 
000000006 00 04 FB 0003D CALLS #4, BADSRETRY 
04 00044 1$ RET 


; Routine Size: 69 bytes, Routine Base: S$CODE$ + 0108 


; 2 0411 


— — 
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read_medium -- Read and Verify the blocks again 14-Sep-1984 11:54:24 DISKSVMSMASTER: (BAD. SRC JBADMAIN.B32;1 (5 


412 1 ZSBITL ‘read_medium -- Read and Verify the blocks against the test pattern’ 

415 1 ROUTINE read_medium : NOVALUE = 

414 1 S44 

415 1! 

814 Functional Description: 

0418 1} Read and Verify the storage blocks from the medium against the test pattern 

—864 1! buffer. 

420 1! 

8 1 : } Side Effects: 

8 : ! Any mismatched data pages will be retired to the Software Detected Bad Sector File. 
0425 1! Special ge ys for the TUS8 has been added. This Stapty adds the function 

0426 1! modifier IOSM_DATACHECK, which increases the read threshold resulting in 

8 weak spots or drop outs to become visible. 

0409 1 I-- 

8 , BEGIN ‘ 

Ge ¢ bad$gl_func = I1O0$_READLBLK; 

z IF .bad$gl_devtype EQL dt$_tu58 ! If the device is a TU-58, read 
0435 THEN ! data back with increased threshold 
8 bad$gl_func = .bad$gl_func OR IOSM_DATACHECK; ! (forces weak spots to show up). 
ah 4 bad$start_io (.lastfull); ! Read device asychronously. 
rk Ag bad$sync_io (.bad$ga_bufadr [0], .remainder, .lastfull + .bad$gl_pagcnt) 
ose bad$retry (.lastfull + .bad$gl_pagcnt, .remainder, bad$gq_iosb [0], .bad$ga_bufadr (0)); 
Bees bad$verify_blocks (.bad$ga_bufadr [0], .remainder, .lastfull + .bad$gl_pagcnt, bad$gq_iosb ([0]); 
0446 1 END; ! of ROUTINE read_medium 


001C 00000 READ_MEDIUM: 
«WORD 


Save R2,R3,R4 : 0413 
54 0006 CF 9€ 0000 MOVAB BADSGA_BUFADR, R4 : 
33 0 CF 9€ 900 MOVAB BADSGL-PAGCNT. R3 : 
2 000° 4 3 OC MOVAB LASTFUCL, R2 3 
00006 CF 1 p00 00011 MOVL # #33, BAD$GL_FUNC + 0432 
E 0006 CF D 16 CMPL BADSGL_DEVTYPE, #14 ; 
0 0000 F D1 00016 cMPL $ TYPE, #1 0434 
00006 CF 40 $6 as 001 BISB2 #64, BADSGL_FUNC+1 > 04 
62 0D 99 1$: PUSHL LASfF ; 04 
000000006 0 01 FB 0 CALLS #1, BADSSTART_10 : 
7t 6 63 C1 0002C ADDL3 BADSGL_PAGCNT? LASTFULL, -(SP) > 0440 
04 A2 0D 00 PUSHL REMAINDER 3 
4 0D 00 PUSHL BADSGA_BUFADR : 
000000006 00 ; FB CALLS #3, BADSSYNC_IO ; 
14 E8 0003 BLBS) ss RO. ; 
64 DD 0003F PUSHL BADSGA_BUFADR > 0442 


—* Sep-1 


—*88 Analyze/Media Main Module 4 VAX-11 Bliss-32 V4.0- 1 

‘eae —W read medium =-- Read and Verify the blocks again 1228681382 73 1: 38 DISKSVMSMASTER: BAD SRCIBADMAIN, 832;1 ee⸗ (3) 
00996 CF OOF 4 PUSHAB BAD$GO_10SB 3 
| 4° Ke DD 9004 PUSH, REMAINDER : 
7E $e 8 C 4 DL eet 64 LASTFULL, -(5P) 
000000006 4 FB 6 CALLS beta toten : 

0000G CF 9OF 2$: PUSHAB sts 10 3 0444 
7E 62 83 C1 ADDL3 ADSL" PAGCNT, LASTFULL, =(SP) $ 
04 42 OD 8 PUSHL REMA a} bg Hy : 
4 OD 32 PUSHL BADSGA ⸗ 
000000006 00 4 FB 00 CALLS #4, SABSVERIFY BLOCKS 3 

04 0006 RET i 0446 


; Routine Size: 104 bytes, Routine Base: S$CODES + 0140 


s Sz 0447 1 
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BADMAIN Anal ze/Redia Main Module 18.56 Sep-19 3:41:46 
—* finish medium -- Perform completion activities 12-8 08-13be 7 F 24 


448 1 ZSBTTL ‘finish_medium — Perform completion activities’ 

3 5 8 ROUTINE finish_medium : NOVALUE = 

: ee 

; : : ! Functional Description: 

; 0 454 1: Write the Software Detected Bad Sector File to the medium if it was 
: 341 55 ; } 2 A produce a Listing if one was requested and close the output 
3 ! e(s) 

rs 

; 44 04 8 1— 

3 3463 Be BEGIN 

3 +8 Reed ieee ee et acontent Cccx.v_exercise] OR .bad$gl_context Cctx_v_badblocks] 
: 348 046¢ write_new_sdbsf (); 

3 349 04 

3 9 8 If᷑ .bad$gl_context Cctx_v_show_after] 

; 26 04 IF — context Cctx_v ippeetees OR .bad$gl_context Cctx_v_nlt_sdbsfJ 
: a ret THEN ad$produce_report ( 

: 355 0469 id -bad$gl_context Cctx_v_output) 

; 356 0470 HEN 

3 57 0471 bad$close_files (); 

; 358 oh 

; 359 0475 1 END; ! of ROUTINE finish_medium 


0004 00000 FINISH_MEDIUM: 
WORD 


. Save R2 
28 0000G CF of 0000 MOVAB BADSGL bgp» R2 
03 ra 08 EO 0000 BBS #2, BADSGL_CONTEXT, 
05 62 €9 00008 BLBC BADSGL COuTENT. 23° 
0000v CF 00 FB 00 1$ CALLS » WRITE_NE 
10 01 Ae 05 €1 00013 2$ C #5, BADSGC_CONTEXT+1, 4$ 
0 01 A £8 0018 BS BADSGL_CONTEXT+1, 
01 =A 001C TSTB BADSGL_CONTEXT+1 
07 18 0001 BGEQ 
000000006 09 00 FB 00021 3$: CALLS 40, — tae 
ss. 01 €1 00028 4$: BBC #1, BAD$SGL_CONTEXT 
000000006 00 00 FB 8 d CALLS 40. BADSCLOSE Nines 
04 00034 5$: RET 


: Routine Size: 53 bytes, Routine Base: S$CODES + 0185 


360 0474 1 
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$-32 V ey 
TER: —8 SRC BADMAIN.B32; 29 


°c — — —ñ— —ñ Or OO — — Oo ae — — — — — — — 


5 8 
BADMAIN Analyze/Media Main Module 15-Sep-1984 23:41:4 VAX-11 Bliss-32 v4 
FO 000 33 iziz 


0274 Pa 
total_bad_blocks -= Compute the total number of 14-Sep-1 DISKSVMSMASTE * BAD SRCIBADMAIN.832;1 7) 


475 ZSBTTL ‘total_bad_blocks -- Compute the total number of bad blocks’ 

47 ROUTINE total_Bad_Blocks = 

ai 

443 ! Functional Description: 

481 : Compute the total number of bad blocks which have been detected by 
ass } either the Manufacturer or BAD and return it to the caller. 
048% | Implicit Inputs: 

age bad$gl_context Context flags to determine [non] Last track device. 
rt 13 bad$ga_mdbsf Manufacturers Detected Bad Sector File buffer. 

+ } bad$ga_sdbsf Software Detected Bad Sector File buffer. 
049 Routine Value: 
0494 ‘ The total number of bad blocks recorded in both the MDBSF and SDBSF, 
0495 ; this includes any blocks which were entered manually by the user via 
983 : the /BAD_BLOCKS qualifier. 


lbn, 

total : INITIAL (0); 

IF .bad$gl_context Cctx_v_ltdevice] 
THEN 


BEGIN 
INCR entry FROM .bad$ga_mdbsf + (tk_k_headersiz TO .bad$ga_mdbsf + bad$k_page_size - 4 BY 4 
DO IF ..entry NEQ -1 

THEN total = .total + 1 

ELSE EXITLOOP; 
total = .total + ((.bad$gl_sdbsf_ptr - .bad$ga_sdbsf - Ltk_k_headersiz) / 4); 


= PONININIWUEE & BWW WII WINNIE —— — —— — —— —— — — — 
m ome 
* 


Be Se Se Se Ge Oe Se Se Se Se Fe Fe Se Se Fs Fe Se FH Se Ss 4 Se Ge Se Ge Se Se Gs Se Ge Se Oe Se Ge ———2—2—2 @eee 


SCOCoOCOCO 
ORM SSODNAMR WU HOSR NEAR OU SO Dee 


SOOOOOCOOSCOOOOCOOOOOOOoOoOoOoOoCoOoOoO 
Wty ty ty ty ty try ny ty ty ty ty ty ty ty Ny ty ty ty ty Wy Wy ty te ty 9 $4 


0 
0 
0 
1 
1 
1 
: END 
1 BEGIN 
8 — FROM .bad$ga_sdbsf + nlt_k_headersiz TO .bad$gl_sdbsf_ptr - 4 BY 4 DO 
1 bad$cvt_nit Long (..entry, count, lbn); 
406 1 total =.tofal + .count + 1; 
407 END; 
408 END; 
409 
$19 ; RETURN .total; 
412 END; ! of ROUTINE totel_bad_blocks 


001C 00000 TOTAL_BAD_BLOCKS: 


Site 16 SCO Wa EE oe ak oi — 


13 
it 


—— 


am 
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8 
BADMAIN Analyze/Media Main Module i$-se =1984 23:41: VAX-11 Bliss-32 V4.0-74 Pa 4 
YOe-000 total_bad_blocks == Compute the total number of 12280071386 $9:$1:58 DISKSVMSMASTER: (BAD. SRC JBADMAIN.B32; 1 = JH 
.WORD Save R2,R3,R4 : 0476 
SE 08 ¢2 guBL2 RB. SP : 
D CLRL. =: TOTAL + 0499 
36 90006 F E9 BLBC_ BADSGL_CONTEXT+1, 4$ : 6505 
51 90006 CF OOOOOIFC «BF OCC ¢ ADDL 3 #508, BADSGA_MDBSF, R1 : 0508 
0 0006 CF 4 1 ADDL #4, BADSGA_MDBSF, ENTRY : 
FFFFFFFF © 8F D1 1$: CMPL NTRY), #1 + 0509 
3 BEQL 3 
D6 000 INCL TOTAL : 0519 
FFEF 50 04 Fi 00029 33 ACBL_ Ri, #4, ENTRY, 1$ : 0509 
50 00006 cr 00006 cf C3 09 F 3$ SUBL3 BADSGA_SDBSF, BADSGL_SDBSF_PTR, RO ; 0512 
0 C2 00037 SUBL2 #8, R : 
29 4 C6 003A DIvL2 #4, R : 
5 0 C0 00030 ADDL2 RO, TOTAL : 
ZA 11 0004 BRB 7$ : 0505 
54 00006 CF 4 C3 00042 4$ SUBL3 #4, BADSGL_SDBSF_PTR, R4 + 0516 
53 00006 CF DO 0004 MOVL §BADSGA_SDBSF, ENTRY : 
17 11 00040 BRB 5% : 
5E DD OO004F 5S: PUSHL SP : 0518 
08 AE 9F 00051 PUSHAB COUNT : 
63 DD 00054 PUSHL (ENTRY) : 
000000006 00 03 FB 00056 CALLS #3, BADSCVT_NLT_LONG : 
0 2$ 04 AE C1 0005D ADDL COUNT, TOTAL, RO 3 0519 
5 01 AO 9E 00062 MOVAB (RO). TOT : 
FFES 53 04 54 F1 00066 6$: ACBL 4, #4, ENTRY, 5$ > 051 
50 52 dO 0006C 7S: MOVL _—‘ TOTAL, RO : 052 
04 0006F RET : 0525 


3; Routine Size: 112 bytes, Routine Base: SCODE$ + O1EA 


; 413 0526 1 


— 


ca J 


BADMAINM Analyze/Media 
—W we te _new_sdb 
An bin 
He! 2s 

: “18 ? 1! Fun 
i i aE 
Bo BET 

; 4626 5 1! 

> 625 $37 1} 

: 358 aa yi 

; 4 8 540 1 in 

: 6 541 2 BEGIN 
1 Gee 8 hoe 
: 6 544 

: ; 545 2 bad$g 
: 4 246 fill 
; 435 054 

J 

3 $365 IF .b 
> 639 0551 TH 

; 440 5 ¢ b 
3 461 055 

; 646 0554 INCR 
: tte zzz 
15 333 IF .b 
: 646 0558 2 THEN 
3 447 0559 
3 448 0560 

: 449 0561 
ie 

: 45 0564 ? 
> 45 0565 

+ 454 0566 1 END; 


53 0000G CF 


Main VAX-11 Bliss-32 V 


L_ ‘write new _sdbsf -- Write a new SOBSF to the medium’ 
NE write flew Sdbsf : NOVALUE = 

ctional Description: 

Perform house cloening on the SDBSF, it filling the Th the'g unused bad 
block descriptors with the selected f t oft tiie ti evice is a 
non last track vornet ¢ ay bt the bad k file is checksum'd and nt 
checksum is lef he last word of B File e. If the device i 


s a las 
track class ww (ie. has more than badSk nltmaxblk), then the DATACHECK 
feature of the Q10 is used to assure that the block was written correctly. 


i 
L_func = 10$_WRITELBLK; 
="(IF -badSat — context Ectx_v_ltdevice] 


ELSE 0): 
ad$gi_context (ctx_v_ltdevice] 
ad$gi_func = .bad$gi_func OR IOSM_DATACHECK; 


entry FROM »bad$gl_sdbsf_ptr TO .bad$ga_sdbsf + bad$k_page_size - 4 BY 4 DO 
entry = .fill; 


ad$gl_context Cctx_v_ltdevice] 
rite_last_track () 


BEGIN 
CHECKSUM2 ( sbodsey sdbet, bad$k_page_size - 2); 


rite. non_(sttrk (0); 


! of ROUTINE write_new_sdbsf 


QO00C 00000 WRITE _NEW SDBSF: 
QORD 


* Rs 
00006 CF 0 pO 0000 HOVE we pais 
01 9 EF 0000 EXT2V MOBADSGL NCONTEXT#1, 
05 £9 0005 BLBC mit 
52 1 cr 001 MNEGL #1. FILL 
0014 BRB 
D4 00 18 1$: CLRL F —F 
06 8 0018 2$: BLBC 
90006 CF ef 0 1B B1SB nel Sansc. C+1 
0006 ct ooo0giFe F C1 Al 3$ ADDL 08 BADSGR. 86 
0 000G CF 00 00028 MOVL BADSEL _SDBSF “PTR, Entry 


8 
sf -- Unites a new SDBSF to the med 13-Sen-1964 73 $433 DISKSVMSMASTER: —8 OSRCIBADMAIN. 832;1 


R3 


Page 
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BADMAIN Analyze/Media Main Module 14.58 “19 41:4 VAX-11 Bliss-32 V4.0-7 6 
—W write new _sdbsf -- Getes a new SDBSF to the med 12-808-138e $759) 5 DISKSVMSMASTER: (BAD. sre BADMAIN.B32; F ge 5S 
1 BRB 58 
9 D $3: MOVL FILL, (ENTRY) : 
p : cMPL ENTRY, R1 ; 
06 ; £9 A BL ns, 6$ ; 0557 
0000v CF Fe ; CALLS WRITE_LAST_TRACK + 0559 
7E O1FE 8F ge 43 6$: MOVZWL #510 + 0562 
00006 CF DD 0004 PUSH wee th SDBSF : 
000000006 00 FB 904 CALL » CHECKSUM2 : 
0000v CF FB 0005 CALLS ; WRITE_NON_LSTTRK 5 0563. 
04 0005 RET + 0566 


; Routine Size: 89 bytes, Routine Base: S$CODE$S + 025A 


: 455 0567 1 


— 4— 
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BADMAIN Analyze/Media Main Module 1$-se 1984 23:41:46 VAX-11 Bliss-32 V4.0-74 Pa 7 
—W write last.track -- Urite the new SDBSF onto th 12-880-1984 254:2 DISKSVMSMASTERSCBAD. SRCSBADMAIN.832;1 as (95 
; 457 1 SSBTTL ‘write last track — Write the new SOBSF onto the Last track’ 
; 4 § | ROUTINE write _Tast_frack : NOVALUE = 
; 460 «i a 
3 red f ; : Functional Description: 
; 46 7% «1! Write the bad block file to the ramainder of the last track, following 
; 464 575 1! the MDBSF. 
; 465 278 1! 
3 8 3 Side Effects: 
; $98 28 14 If we could not write the updated SDBSF to the medium, then signal 
3 : ° 5 — a fatal error and terminate the analysis (via SIGNAL_STOP). 
3 471 2 ¢ 1 !<- 
; 47 5 BEGIN 
; 47 5 INCR block FROM 10 TO .bad$gl_sectors / jbedtge block fact - 1 DO 
: 474 585 IF NOT (bad$gi_status = bad$sync_io (.bad$ga_sdbsf, 
; 475 586 bad$k page size. 
: 476 0587 -bad$gl_mdbSf_ptr + .block)) 
3 477 86 HEN 
; rth | $494 SIGNAL_STOP (bad$_bbfwrt, 1, bad$ga_device, .bad$gl_status); 
; 480 0591 1 END; ! of ROUTINE write_last_track 
000C 00000 WRITE_LAST_TRACK: 
-WORD Save R2,R3 : 0569 
53 0000G CF 9A 0000 MOVZBL BADS$GB_BLOCK_FACT, R3 ; 0584. 
53 00006 CF 53 C7 0000 DIVL3 R3, BADSGL_SECTORS, R3 3 
52 ’ 9 44 —* #9, BLOCK 3 | 
OQOOOGDF42 9F 00012 1$ PUSHAB @BADSGL_MDBSF_PTRCBLOCK] : 0587. 
7E 0200 8F 3C 0001 MOVZWL #512, -TSP ; 0585 
00006 CF dD 0001C USHL  BADSGA_SDBSF 3 
000000006 00 3 FB 000 : CALLS #3, BADSSYNC_10 : 
0000G CF DO 000 RO, BADSGL_STATUS 3 
17 0 €8 8 BLBS : 
90006 CF pp 0 OoF PUSHL BADSGL_STATUS : 0589 
0000G CF 9F 000 ; PUSHAB BADSGA_DEVICE ; 
1 OD it PUSHL 3 
00000000G 8F DD 9 PUSHL #BADS$_BBFWRT : 
000000006 & Fe 0003F CALLS #4, LIBSSTOP : 
c8 3 Fe 00046 28 AOBLSS R3, BLOCK, 1$ ; 0585 
04 00044 RET ; 0591 


3; Routine Size: 75 bytes, Routine Base: S$CODE$ + 0283 


; 481 0592 #1 


8 
Analyze/Media Main Module 15-se $1984 23:41:4 
write-non, Lsttrk -- Urite the new SDBSF on the 12-8951 98e n313 


SBTTL 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: (BAD. SRC JBADMAIN.B32; 


‘write_non_lsttrk <= ree the new SDBSF on the Last good block’ 
= 


OUTINE write_fion_Tsttrk : NOVALUE 


P 
10° 


Write the bad block file to the last good block on the device (that is 


somewhere within the last 256 biock on the device). 


Side Effects: 


2222228s8 
BRANLESS 


If we could not write ere updated SDBSF to the medium, then signal 


nate the analysis (via SIGNAL_STOP). 


z 
R 
i 
} Functional Description: 
i 
i 
i 
i 
i 
i 
: a fatal error and term 


write_ok = FALSE; 
J wet ebad$gl_context Cctx_v_ltdevice] 
block = .bad$gl_maxblock 
ELSE 
block = .bad$gl_mdbsf_ptr; 
INCR at toet FROM 1 TO 255 DO 
IF (bad$gl_status = bad$sync_io ——22 


ad$k_page_size, 
"bleach =" Bi iseti? 


If this is a true non last track device start 
at the Last block. 

If the device is last track converted by 
/OVERRIDE, then protect the last track. 


Write the SDBSF until we get success or run 
out of rope! 


D— — — ts — —— 
mem — — 
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PPV DV DV IVI IV IVIUIVIVIVIULIVSVIVSV SUS VOSS SISOS E™ E™ SE 


3338838838838883888888 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
6 73 
0608 BEGIN 
0609 LOCAL 
block, 
write_ok; 
4 
4 
4 
3 
& 
% 


THEN 
BEGIN 
oe —R 
8 
06 END; 
06 
8 IF wot -write_ok 
5 SIGNAL_STOP (bad$_bbfwrt, 1, bad$ga_device, .bad$gl_status); 
$35 END; ! of ROUTINE write_non_(sttrk 


Q0 Save R2,R3,R4 : 0594) 
53 D4 00002 CLRL «=: WRITE_OK : 061 
07 0006 CF €8 00004 BLBS § BADSGC_CONTEXT+1, 1$ : 061 
4 0006 CF BO 9009 NOVL ADS$GL“MAXBLOCK, ‘BLOCK : 0617 
54 00006 CF DO 0018 1$ MOVL  BADSGL_MDBSF_PTR, BLOCK : 0619 


001C 00000 WRITE _NON hrs eee 


bseo-19 


BADMAIN Analyze/Media Main Mod 1 4 23:41:46 VAX-11 Bile $-32 V4.0-74 
—W write non_isttrk == orits the new SDBSF on the 12-8 08-198e $7435 DISKSVMSM 
15 2$: MOVL #1 erser 
7E H i ts O08 $: SUB OFF se BLOCK, -(SP) 
E 388. C 0001C MOVZWL 451 J 
dD 1 PUSHL BAD GA SdBSF 
000000006 00 f 5 CALLS ° BABS STN 
0000G CF D ¢ MOVL » BADSGL NETATUS 
E 1 BLBC RO $ 
1 00 8 MOVL i. WRITE_OK 
8 1 037 BRB 5$ 
D7 38 O00000F F F F3 00039 4$: AOBLEQ #255, OFFSET, 3$ 
1 3 €8 00041 5$: BLBS WRITE_OK, 6 
90006 CF bb D044 PUSHL. BAD$GC_STATUS 
G CF F 4 PUSHAB BADSGA. DEVICE 
1 DD 0004C¢ PUSHL 
00000000G 8F DD O0004E PUSHL FBADS BBF WRT 
000000006 00 4 FB 00054 CALLS #4, LIBSSTOP 
04 00058 6$: RET 
; Routine Size: 92 bytes, Routine Base: $CODE$ + O2FE 
: 528 0638 1 
3 38 0639 1 END 
; 530 0640 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
3 PSECT SUMMARY 
: Name Bytes Attributes 
> SOWNS 32 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SCODES 858 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Bigs) ee — Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28: CSYSLIBILIB.L32;1 18619 12 0 1000 00:01.4 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE)/LIS=LIS$:BADMAIN/OBJ=OBJ$:BADMAIN MSRC$:BADMAIN/UPDATE=(ENH$ :BADMAIN) 


TER: (BAD. SRC JBADMAIN.B32; . 
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BA N Analyze/Media Main Modyle 15-Sep-1984 23:41:4 AX-11 Bliss- -0-74 
YOu-000 w te non *tsttrk oo Urite the new SDBSF on the 5 —— — Bliss-32 ¥4.0-762 Page 20 


Size: : 858 mat + 32 data bytes 


3 Lexenes/CPU-Kin: * 3 
noe Bs Used: 2 pages 
3 nme ation tonntele 
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